supplied-by : defer@ ( xt -- xt2 )  >code cell+ @ ;
